home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / cg / hanabi.bas < prev    next >
BASIC Source File  |  1995-01-22  |  1KB  |  36 lines
  1. 1000 COLOR 7,0:CLS
  2. 1010 INPUT"花火を打ち上げる回数を入力してください。",回数
  3. 1020 CLS
  4. 1030 LINE(0,350)-(639,399),PSET,4,BF '地面表示
  5. 1040 FOR K=1 TO 回数 '打ち上げ
  6. 1050   LOCATE 0,0:PRINT K;"/";回数;"発目"
  7. 1060   大きさ=INT(RND*150)+50
  8. 1070   '***** 打ち上げ ************************
  9. 1080   X=INT(RND*500)+70:Y=280-大きさ
  10. 1090   FOR YY=349 TO Y+10 STEP -1
  11. 1100     Y2=YY+15:IF Y2>349 THEN Y2=349
  12. 1110     LINE(X,Y2)-(X,YY),PSET,INT(RND*7)+1
  13. 1120     LINE(X,349)-(X,Y2),PSET,0
  14. 1130   NEXT
  15. 1140   LINE(X,349)-(X,Y),PSET,0
  16. 1150   '***** 光らせる ************************
  17. 1160   FOR I=0 TO 30   '光らせる
  18. 1170     CIRCLE(X,Y),2,INT(RND*7)+1,,,,F
  19. 1180   NEXT
  20. 1190   '***** 光を消す ************************
  21. 1200   CIRCLE(X,Y),2,0,,,,F
  22. 1210   '***** 時間待ち ************************
  23. 1220   WAIT 10
  24. 1230   '***** 爆発 ****************************
  25. 1240   FOR I=2 TO 大きさ STEP 3
  26. 1250     CIRCLE(X,Y),I,INT(RND*7)+1
  27. 1260   NEXT
  28. 1270   '***** 時間待ち ************************
  29. 1280   WAIT 50
  30. 1290   '***** 花火を消す **********************
  31. 1300   CIRCLE(X,Y),大きさ,0,,,,F
  32. 1310 NEXT
  33. 1320 CONSOLE 0,24,2
  34. 1330 COLOR 7,0:CLS
  35. 1340 END
  36.